home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / Macintosh Graphics Primer / Macintosh Graphics Primer / card_10446.txt < prev    next >
Encoding:
Text File  |  1990-12-05  |  4.0 KB  |  177 lines
  1. -- card: 10446 from stack: in
  2. -- bmap block id: 10507
  3. -- flags: 0000
  4. -- background id: 2792
  5. -- name: open 4
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   global maploc, cardloc
  9.   put 1 into maploc
  10.   put "yes" into line 1 of field "footprints" of card "Map"
  11. end closeCard
  12.  
  13.  
  14. -- part 1 (button)
  15. -- low flags: 00
  16. -- high flags: 0001
  17. -- rect: left=428 top=317 right=342 bottom=456
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 18621 / 18621
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: 
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: 0001
  31. -- rect: left=484 top=317 right=342 bottom=512
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 18623 / 18623
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: 
  40.  
  41.  
  42. -- part 10 (button)
  43. -- low flags: 00
  44. -- high flags: 2000
  45. -- rect: left=484 top=317 right=342 bottom=512
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 18613 / 18613
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: return
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   global lastPush
  57.   pop card into lastPush
  58.   if the short name of this stack is not in lastPush then
  59.     visual dissolve
  60.     go card "open 0"
  61.   else
  62.     visual dissolve
  63.     go lastPush
  64.   end if
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 11 (button)
  70. -- low flags: 00
  71. -- high flags: 2000
  72. -- rect: left=457 top=317 right=342 bottom=485
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 18612 / 18612
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: next
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   push card
  84.   visual dissolve
  85.   go next
  86. end mouseUp
  87.  
  88.  
  89.  
  90.  
  91. -- part 14 (button)
  92. -- low flags: 00
  93. -- high flags: 0002
  94. -- rect: left=392 top=320 right=338 bottom=426
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 1500 / 1500
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: Start-Up
  103. ----- HyperTalk script -----
  104. on mouseDown
  105.   global NAV_PATH, SYS_PATH, GTRACKINGDISABLED
  106.  
  107.   put (item 1 of the mouseLoc) - (item 1 of the Loc of me) into whereInBtn
  108.  
  109.   -- simulate hiliting of two small buttons
  110.   repeat until the mouse is up
  111.     ---find out WHERE on the icon you clicked
  112.     put (item 1 of the mouseLoc) - (item 1 of the Loc of me) into whereInBtn
  113.     if the mouseLoc is within the rect of the target then
  114.       if whereInBtn < 0 then
  115.         set icon of me to 1501
  116.       else
  117.         set icon of me to 1502
  118.       end if
  119.     else   -- outside of the button, reset default icon
  120.       set icon of me to 1500
  121.     end if
  122.   end repeat
  123.   set icon of me to 1500
  124.   if the mouseloc is not within the rect of me then exit mouseDown
  125.  
  126.   if whereInBtn < 0 then
  127.     --- the click was on the left so go to send feedback if it exists
  128.     if (GTRACKINGDISABLED = empty) or (GTRACKINGDISABLED = true) then
  129.       answer "‚ÄúCD Preferences‚Äù has not been installed." with "OK"
  130.       exit mouseDown
  131.     end if
  132.     --
  133.     if (GTRACKINGDISABLED = "Disabled") then
  134.       answer "The feedback mechanism has been disabled." with "OK"
  135.       exit mouseDown
  136.     end if
  137.     --
  138.     push card
  139.     put SYS_PATH & "CD Preferences" into feedPath
  140.     set cursor to watch
  141.     visual effect dissolve fast
  142.     go stack feedPath
  143.   else if whereInBtn > 0 then
  144.     -- if the click was on the right then go back to navigation stack
  145.     visual effect iris close to black
  146.     visual effect iris open
  147.     if NAV_PATH = empty then put "cd welcome of stack" && "the ‚ÄúNavigation Stack‚Äù" into NAV_PATH
  148.     -- make a prompt for "where is" if the global is empty
  149.     go NAV_PATH
  150.   end if
  151. end mouseDown
  152.  
  153. on mouseUp
  154.   -- kill any mouseups
  155. end mouseUp
  156.  
  157.  
  158.  
  159. -- part contents for background part 9
  160. ----- text -----
  161. An Apple Self-Paced Training Package
  162.  
  163. -- part contents for background part 11
  164. ----- text -----
  165. open4
  166.  
  167. -- part contents for background part 4
  168. ----- text -----
  169. The Apple Macintosh Graphics Primer
  170.  
  171.  
  172. -- part contents for background part 5
  173. ----- text -----
  174.  
  175.  
  176.  
  177.